Sub print_servervariables
   for each strKey In Request.ServerVariables
	response.write(strKey + "=" + Request.ServerVariables(strKey) + VBCrLf)
   next
End Sub

response.clear

